home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #11 / CD 11 (Black) - 2001.iso / Fruity / STRINGTG.DXR / 00006_stringManager.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  1.4 KB  |  54 lines
  1. property pStringChan, pFCandyMem, pCurrentCandy, pBiteCount, pButtonChan
  2. global gBlank, gSwingMode
  3.  
  4. on new me
  5.   set pStringChan to 8
  6.   set pFCandyMem to 71
  7.   set pCurrentCandy to 1
  8.   set pBiteCount to 0
  9.   set pButtonChan to 6
  10.   return me
  11. end
  12.  
  13. on mSelectRope me
  14.   set the memberNum of sprite pStringChan to pFCandyMem + (6 * (pCurrentCandy - 1))
  15.   set pCurrentCandy to pCurrentCandy + 1
  16.   if pCurrentCandy > 4 then
  17.     set pCurrentCandy to 1
  18.   end if
  19.   set pBiteCount to 0
  20.   if gSwingMode = 1 then
  21.     set gSwingMode to 0
  22.     set the memberNum of sprite pButtonChan to 25
  23.   end if
  24. end
  25.  
  26. on mBite me
  27.   if the memberNum of sprite pStringChan = gBlank then
  28.     exit
  29.   end if
  30.   AnimLinNL(pButtonChan, "Eat", [26, 27, 28, 27, 26, 25], 9, 0, 0)
  31.   if pBiteCount < 1 then
  32.     set the memberNum of sprite pStringChan to the memberNum of sprite pStringChan + 1
  33.     set pBiteCount to pBiteCount + 1
  34.   else
  35.     mSetSwingMode()
  36.   end if
  37. end
  38.  
  39. on mSetSwingMode me
  40.   set fCst to the memberNum of sprite pStringChan
  41.   AnimLinNL(pStringChan, "dropRope", [fCst + 1, fCst + 2, fCst + 3, fCst + 4], 9, 0, 0)
  42.   repeat while soundBusy(1)
  43.   end repeat
  44.   set theTime to the timer + 25
  45.   set gSwingMode to 1
  46.   puppetSnd(1, "SelectString")
  47.   set the memberNum of sprite pButtonChan to 29
  48.   UStage(theTime)
  49.   set theTime to the timer + 25
  50.   puppetSnd(1, "SelectString")
  51.   set the memberNum of sprite pButtonChan to 30
  52.   UStage(theTime)
  53. end
  54.